home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / formdr1a / formdrag.bas next >
BASIC Source File  |  1999-10-07  |  831b  |  22 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Public Declare Function ReleaseCapture Lib "user32" () As Long
  4. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
  5. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  6.  
  7. ' put this in the form mouse down, and you can drag the form when you click it.
  8. 'great for borderless forms
  9. Public Sub Form_Move(TheForm As Form)
  10.        ReleaseCapture
  11.        Call SendMessage(TheForm.hwnd, &HA1, 2, 0&)
  12.  
  13. End Sub
  14. 'Example -
  15. 'Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  16. 'Form_Move Me
  17. 'End Sub
  18.  
  19.        'by kr0q
  20.        'worldfamouskr0q@phreaker.net
  21.  
  22.